home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aac.d64 / basic-trig (.txt) < prev    next >
Commodore BASIC  |  2007-02-28  |  190b  |  11 lines
  1. 10 REM TRIG BENCHMARK
  2. 20 I=0:A=0.1:B=0.2
  3. 30 TS=TI:POKE53265,11:REM BLANK SCREEN
  4. 40 FOR I=1 TO 1000
  5. 50 C=SIN(A/B)*COS(A/B)
  6. 60 NEXT
  7. 70 POKE53265,27:REM TURN SCREEN ON
  8. 80 PRINT" I=  ",I
  9. 90 PRINT" C=  ",C
  10. 100 END
  11.